object MainForm: TMainForm Left = 337 Top = 112 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Personal Law Library' ClientHeight = 428 ClientWidth = 632 Color = clSilver Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Icon.Data = {} Menu = MainMenu1 Position = poScreenCenter Scaled = False OnActivate = MainFormOnActivate OnCreate = MainFormOnCreate OnDestroy = MainFormOnDestroy OnShow = MainFormOnShow PixelsPerInch = 120 TextHeight = 16 object ImageMainBackground: TImage Left = 0 Top = 0 Width = 632 Height = 428 Align = alClient end object AppException1: TAppException ExcepMsg.Beep = False ExcepMsg.Enabled = False ExcepMsg.ShowDebug = False ExcepLog.Enabled = False Terminate = False Left = 760 Top = 544 end object HelpCloud1: THelpCloud Bitmaps.TransparentColor = clOlive Color = clYellow CaptionWidth = 125 Style = Bubble Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Alignment = taCenter Corner = UpperRight ShowhintCloud = True Left = 736 Top = 544 end object OvcController1: TOvcController EntryCommands.TableList = ( 'Default' True () 'WordStar' False () 'Grid' False ()) Left = 712 Top = 544 end object MainMenu1: TMainMenu object MenuFile: TMenuItem Caption = '&File' ShortCut = 0 object FMenuGettingStarted: TMenuItem Caption = '&Getting Started...' ShortCut = 0 OnClick = FMenuGettingStartedClick end object FMenuUpdateUserInfo: TMenuItem Caption = '&Update User Information...' ShortCut = 0 OnClick = FMenuUpdateUserInfoClick end object N1: TMenuItem Caption = '-' ShortCut = 0 end object FMenuPrintSetup: TMenuItem Caption = 'P&rint Setup...' ShortCut = 0 OnClick = FMenuPrintSetupClick end object N2: TMenuItem Caption = '-' ShortCut = 0 end object FMenuExit: TMenuItem Caption = 'E&xit' ShortCut = 0 OnClick = FMenuExitClick end end object MenuDocuments: TMenuItem Caption = '&Documents' ShortCut = 0 object DMenuCategory1: TMenuItem Caption = 'Category &1...' ShortCut = 0 OnClick = DMenuCategory1Click end object DMenuCategory2: TMenuItem Caption = 'Category &2...' ShortCut = 0 OnClick = DMenuCategory2Click end object DMenuCategory3: TMenuItem Caption = 'Category &3...' ShortCut = 0 OnClick = DMenuCategory3Click end end object MenuVideos: TMenuItem Caption = '&Videos' ShortCut = 0 object VMenuWelcome: TMenuItem Caption = '&Welcome' ShortCut = 0 OnClick = VMenuWelcomeClick end object VMenuAdvisory: TMenuItem Caption = '&Attorney Advisory' ShortCut = 0 OnClick = VMenuAdvisoryClick end object VMenuDisclaimer: TMenuItem Caption = '&Disclaimer' ShortCut = 0 OnClick = VMenuDisclaimerClick end object VMenuResearch: TMenuItem Caption = '&Research' ShortCut = 0 OnClick = VMenuResearchClick end object N3: TMenuItem Caption = '-' ShortCut = 0 end object VMenuVideo1: TMenuItem Tag = 1 Caption = '&Cohabitation Agreements' ShortCut = 0 OnClick = VMenuVideoClick end object VMenuVideo2: TMenuItem Tag = 2 Caption = '&Living Wills' ShortCut = 0 OnClick = VMenuVideoClick end object VMenuVideo3: TMenuItem Tag = 3 Caption = '&Medical Records' ShortCut = 0 OnClick = VMenuVideoClick end object VMenuVideo4: TMenuItem Tag = 4 Caption = '&Name Change' ShortCut = 0 OnClick = VMenuVideoClick end object VMenuVideo5: TMenuItem Tag = 5 Caption = '&Organ Donations' ShortCut = 0 OnClick = VMenuVideoClick end object VMenuVideo6: TMenuItem Tag = 6 Caption = '&Permission Slip' ShortCut = 0 OnClick = VMenuVideoClick end object VMenuVideo7: TMenuItem Tag = 7 Caption = 'Powers of &Attorney' ShortCut = 0 OnClick = VMenuVideoClick end end object MenuHelp: TMenuItem Caption = '&Help' ShortCut = 0 object HMenuGlossary: TMenuItem Caption = '&Glossary of Legal Terms' ShortCut = 0 OnClick = HMenuGlossaryClick end object HMenuOrganizations: TMenuItem Caption = '&Helpful Organizations' ShortCut = 0 OnClick = HMenuOrganizationsClick end object HMenuStatutes: TMenuItem Caption = '&Statutes, Laws, and Rules' ShortCut = 0 OnClick = HMenuStatutesClick end object N4: TMenuItem Caption = '-' ShortCut = 0 end object HMenuAbout: TMenuItem Caption = '&About Personal Law Library...' ShortCut = 0 OnClick = HMenuAboutClick end end object MenuTesting: TMenuItem Caption = '&Testing' ShortCut = 0 object TMenuPrintAllForms: TMenuItem Caption = '&Test Print All Forms...' ShortCut = 0 OnClick = TMenuPrintAllFormsClick end end end object PrinterSetupDialog1: TPrinterSetupDialog Left = 608 Top = 400 end end